home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Utilities / DigitalAlmanac / Installation / Install-Data / Install < prev   
Encoding:
Text File  |  1998-07-21  |  1.4 KB  |  57 lines

  1. ;$VER:DigitalAlmanac Install_Data 39.11
  2.  
  3. (if (= @language "deutsch")
  4.     (
  5.     (set #ask-data "In welchem Verzeichnis befindet sich\ndas Datenarchiv 'DAlmanac_Data.lha' ?")
  6.     (set #ask-lha "In welchem Verzeichnis befindet\nsich befindet sich 'Lha' ?")
  7.     (set #ask-da "Wie heißt das Verzeichnis von Digital Almanac ?")
  8.     (set #msg-install "Das Datenarchiv wird jetzt entpackt.")
  9.     (message "Willkommen zur Installation der Daten für Digital Almanac.\n\nSie müssen das Hauptprogramm von Digital Almanac bereits fertig\ninstalliert haben, um weiter machen zu können !")
  10.     )
  11. )
  12.  
  13. (if (= @language "english")
  14.     (
  15.     (set #ask-data "In which drawer is the data archive 'DAlmanac_Data.lha' ?")
  16.     (set #ask-lha "In which drawer is  'Lha' ?")
  17.     (set #ask-da "What's the name of Digital Almanac's drawer ?")
  18.     (set #msg-install "The data archive now will be unpacked.")
  19.     (message "Welcome to the installation of the datas for Digital Almanac.\n\nTo continue, you must have completly installed the main program !")
  20.     )
  21. )
  22.  
  23. (set #data-dir
  24.     (askdir
  25.         (prompt #ask-data)
  26.         (help @askdir-help)
  27.         (default @default-dest)
  28.         (disk)
  29.     )
  30. )
  31.  
  32. (set #lha-dir
  33.     (askdir
  34.         (prompt #ask-lha)
  35.         (help @askdir-help)
  36.         (default "C:")
  37.         (disk)
  38.     )
  39. )
  40.  
  41. (set #da-dir
  42.     (askdir
  43.         (prompt #ask-da)
  44.         (help @askdir-help)
  45.         (default "Work:DigitalAlmanac")
  46.         (disk)
  47.     )
  48. )
  49.  
  50. (set #data (tackon #data-dir "DAlmanac_Data.lha"))
  51. (set #lha (tackon #lha-dir "Lha"))
  52.  
  53. (working #msg-install)
  54.  
  55. (run (cat #lha " e \"" #data "\" \"" (tackon #da-dir "") "\""))
  56.  
  57.